home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / prowres / shared.dxr / 01524_SSmouseCastLineYN.ls < prev    next >
Encoding:
Text File  |  1995-08-07  |  607 b   |  27 lines
  1. on mouseDown
  2.   if (the mouseCast = -1) or (the mouseLine = -1) then
  3.   else
  4.     if the castType of cast the mouseCast = #text then
  5.       mptandcset(the mouseCast, mmouselinechk())
  6.       put mmouselinechk()
  7.     else
  8.     end if
  9.     updateStage()
  10.   end if
  11. end
  12.  
  13. on mmouselinechk
  14.   if (the mouseLine mod 2) = 0 then
  15.     return the mouseLine / 2
  16.   else
  17.     return (the mouseLine + 1) / 2
  18.   end if
  19. end
  20.  
  21. on mptandcset castno, lineno
  22.   puppetSound("Single Click")
  23.   puppetTransition(23)
  24.   mspriteset(3, 1, 1, 0, (castno * 8) + lineno - 6, 536, 128)
  25.   mspriteset(4, 1, 7, 36, (castno * 8) + lineno + 14, 435, 225)
  26. end
  27.